From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 12 Aug 2011 20:45:45 +0000 (+0200)
Subject: lisp/startup.el (argi): Declare as global variable (bug#9275).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2606
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=96bf5b44771f925fc963cb8b8e85f98085318168;p=emacs.git

lisp/startup.el (argi): Declare as global variable (bug#9275).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f9a217808e..00b2f61fd67 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-08-12  Juanma Barranquero  <lekktu@gmail.com>
+
+	* startup.el (argi): Declare as global variable (bug#9275).
+
 2011-08-12  Chong Yidong  <cyd@stupidchicken.com>
 
 	* subr.el (string-mark-left-to-right): Search the entire string
diff --git a/lisp/startup.el b/lisp/startup.el
index 6953ed25ed4..0dee969fb5a 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -105,6 +105,11 @@ This is a convenience alias, so that one can write \(pop argv\)
 inside of --eval command line arguments in order to access
 following arguments.")
 
+(with-no-warnings
+  ;; FIXME: Bad name for a dynamically bound variable
+  (defvar argi nil
+    "Current command-line argument."))
+
 (defvar command-line-functions nil    ;; lrs 7/31/89
   "List of functions to process unrecognized command-line arguments.
 Each function should access the dynamically bound variables